home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / OCXINBOX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-02-02  |  3.8 KB  |  134 lines
  1. VERSION 4.00
  2. Begin VB.Form InboxForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Inbox Messages"
  6.    ClientHeight    =   2970
  7.    ClientLeft      =   1845
  8.    ClientTop       =   3120
  9.    ClientWidth     =   5970
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   3345
  20.    Left            =   1800
  21.    LinkTopic       =   "Form4"
  22.    MDIChild        =   -1  'True
  23.    ScaleHeight     =   2970
  24.    ScaleWidth      =   5970
  25.    Top             =   2790
  26.    Width           =   6060
  27.    Begin VB.CheckBox SortMsg 
  28.       BackColor       =   &H00C0C0C0&
  29.       Caption         =   "Sort Inbox Message"
  30.       Height          =   375
  31.       Left            =   165
  32.       TabIndex        =   5
  33.       Top             =   30
  34.       Width           =   2175
  35.    End
  36.    Begin VB.CheckBox UnreadMsg 
  37.       BackColor       =   &H00C0C0C0&
  38.       Caption         =   "Unread Message Only"
  39.       Height          =   375
  40.       Left            =   2445
  41.       TabIndex        =   4
  42.       Top             =   30
  43.       Width           =   2295
  44.    End
  45.    Begin VB.CommandButton FilterMsg 
  46.       Caption         =   "&Refresh List"
  47.       Height          =   390
  48.       Left            =   3615
  49.       TabIndex        =   3
  50.       Top             =   2520
  51.       Width           =   1815
  52.    End
  53.    Begin VB.CommandButton OpenMsgBtn 
  54.       Caption         =   "&Open Message"
  55.       Height          =   405
  56.       Left            =   1875
  57.       TabIndex        =   2
  58.       Top             =   2520
  59.       Width           =   1695
  60.    End
  61.    Begin VB.CommandButton HideWndBtn 
  62.       Caption         =   "&Hide List"
  63.       Height          =   405
  64.       Left            =   240
  65.       TabIndex        =   1
  66.       Top             =   2520
  67.       Width           =   1575
  68.    End
  69.    Begin VB.ListBox MsgList 
  70.       Height          =   1785
  71.       Left            =   165
  72.       TabIndex        =   0
  73.       Top             =   480
  74.       Width           =   5700
  75.    End
  76.    Begin Mailx16Lib.MMsg MMsg1 
  77.       Left            =   5400
  78.       Top             =   2280
  79.       _Version        =   65541
  80.       _ExtentX        =   900
  81.       _ExtentY        =   900
  82.       _StockProps     =   0
  83.       MarkAsRead      =   0   'False
  84.       DisplayErrors   =   0   'False
  85.       BindString      =   "FormTag1.MSess1"
  86.    End
  87.    Begin Mailx16Lib.MForm MForm1 
  88.       Left            =   2040
  89.       Top             =   2280
  90.       _Version        =   65541
  91.       _ExtentX        =   5530
  92.       _ExtentY        =   500
  93.       _StockProps     =   0
  94.       MXFormName      =   "FormTag2"
  95.    End
  96. Attribute VB_Name = "InboxForm"
  97. Attribute VB_Creatable = False
  98. Attribute VB_Exposed = False
  99. Private Sub FilterMsg_Click()
  100.     MMsg1.UnreadOnly = UnreadMsg
  101.     MMsg1.SortMsg = SortMsg
  102.     RefreshList
  103. End Sub
  104. Private Sub Form_Load()
  105.     RefreshList
  106. End Sub
  107. Private Sub HideWndBtn_Click()
  108.     Unload Me
  109. End Sub
  110. Private Sub MsgList_DblClick()
  111.     OpenMsgBtn_Click
  112. End Sub
  113. Private Sub OpenMsgBtn_Click()
  114.     Index = MsgList.ListIndex
  115.     If Index = -1 Then
  116.         MsgBox "Select a Mail Message to be opened"
  117.     Else
  118.         MMsg1.FetchMsg = Index + 1
  119.         NewMsgWnd MMsg1
  120.     End If
  121. End Sub
  122. Private Sub RefreshList()
  123.     MsgList.Clear
  124.     SessionForm.MousePointer = 11
  125.     MMsg1.Action = ACTION_FINDFIRST
  126.     Do
  127.         If MMsg1.FetchMsg <> 0 Then
  128.             MsgList.AddItem MMsg1.Subject
  129.             MMsg1.Action = ACTION_FINDNEXT
  130.         End If
  131.     Loop While MMsg1.FetchMsg <> 0
  132.     SessionForm.MousePointer = 1
  133. End Sub
  134.